10 PRINT"[147]":POKE53281,0
20 C$="[159][156][158][129][149][150][151][152][153][154][155]"
30 FORI=1TO15:PRINTMID$(C$,I,1);
40 PRINT"";
50 FORJ=1TOI:PRINT:NEXT
60 PRINTSPC(I*2)"     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     "
70 FORJ=1TO300:NEXT
80 NEXTI
90 POKE198,0:WAIT198,1:LIST-80